66问答网
所有问题
当前搜索:
vba workbook
使用Excel
VBA
,如何将某一个工作表保存到新建的Excel中?
答:
代码如下:\x0d\x0aSub 分开存为工作薄()\x0d\x0a\x0d\x0aDim Sh As Worksheet\x0d\x0aDim Wk1 As
Workbook
\x0d\x0aDim Wk2 As Workbook\x0d\x0aDim iPath As String\x0d\x0a\x0d\x0aApplication.ScreenUpdating = False ‘将屏幕更新关闭\x0d\x0aApplication....
excel用
VBA
另保存excel中特定的工作表
答:
代码如下:sub 分开存为工作薄()dim sh as worksheetdim wk1 as workbookdim wk2 as workbookdim ipath as stringapplication.screenupdating = false ‘将屏幕更新关闭application.displayalerts = falseipath = thisworkbook.path & "\" '保存路径为当前
工作簿
所在路径set wk1 =
workbooks
.addse...
使用Excel
VBA
,如何将某一个工作表保存到新建的Excel中?
答:
代码如下:Sub 分开存为工作薄()Dim Sh As Worksheet Dim Wk1 As Workbook Dim Wk2 As Workbook Dim iPath As String Application.ScreenUpdating = False ‘将屏幕更新关闭 Application.DisplayAlerts = False iPath = ThisWorkbook.Path & "\" '保存路径为当前
工作簿
所在路径 Set Wk1 =
Wor
...
EXCEL工作表,当前
工作簿
中的“
Workbook
_Open”在哪里?
答:
在VBE的Thisworkbook中 Excel版本参考:2010 1、ALT+F11,切换到VBE对话框 2、双击Thi
workbook
标签 3、选择workbook(对象)4、查看效果(
Workbook
_Open)
请教如何利用
VBA
实现将一个工作表复制到另一个
工作簿
中
答:
1、开发工具——VB。2、输入代码:Sub 复制表() Dim MyBook1 As Workbook Set MyBook1 =
Workbooks
.Open("C:\Users\Administrator\Desktop\工作表1.xls") Sheets("移动表").Select Sheets("移动表").Copy Before:=Workbooks( _ "工作表2.xls").Sheets(1)MyBook1.CloseEnd Sub。3、...
如何用
VBA
新建一个新的excel表并将其保存在指定目录下
答:
Sub 新建()
Workbooks
.Add ActiveWorkbook.SaveAs "C:\test.xls", True MsgBox "新建Excel工作薄完成"End Sub
VBA
读取指定
工作簿
里的一个sheet到我的excelfile怎么做?
答:
用getobject方法可以隐藏打开的
工作簿
对象,实现看上去没有打开的过程\x0d\x0asub test()\x0d\x0a dim wb as
workbook
\x0d\x0a dim sht as worksheet\x0d\x0a set wb=getobject("C:\A.xls")\x0d\x0a set sht=wb.worksheets(1)\x0d\x0a sht.Cells.Copy ThisW...
vba
如何实现将一个EXCEL文件中隐藏的SHEET页自动复制
答:
Sub copySheet()Dim wkbk As Workbook Set wkbk =
Workbooks
.open("源文件.xls") '先打开要复制的文件 wkbk.sheets(1).Copy thisworkbook.sheets(1) '再将此文件中第一个工作表复制到当前
工作簿
的第一个工作表前 End Sub 这样是最简单的代码了,但是有些限制:如果工作表的某些单元格中字符...
如何用
vba
打开一个excel文件,并在sheet1表格的单元格a1中输入数字45_百...
答:
Workbooks
.Open Filename:="D:\1.XLSX"'打开文件 Workbooks.Open Filename:="D:\1.XLSX", Password:=“123”, writerespassword:=“123” '输入密码打开文件 Sheets("sheet1").range("a1")="45"
excel每隔几列拆分为
工作簿
,
VBA
如何操作?
答:
右键点工作表名-查看代码 ,如下代码复制进去 ,F5运行, 生成文件在当前文件目录下 Sub 拆分()Set sh = ActiveSheet For i = 1 To sh.[iv1].End(xlToLeft).Column Step 5 WkName = sh.Cells(2, i + 1)Sheets.Add.Name = WkName sh.Columns(i).Resize(10000, 5).Copy Sheets(CStr(...
首页
<上一页
2
3
4
5
6
7
8
9
10
11
下一页
尾页
其他人还搜